Lbl A "cos ,sin OU tan ?" Lbl 0 Getkey=46 Goto 2 Getkey=36 Goto 1 Getkey=26 Goto 3 Goto 0 Lbl 1 "Rentre la valeur du cos "? A ClrText "ANGLE(S)" A=1 Locate 1,3,"0 , 2 " A=( 3 2) Locate 1,3," /6 , 11 /6" A=( 2 2) Locate 1,3," /4 , 7 /4" A=(1 2) Locate 1,3," /3 , 5 /3" A=0 Locate 1,3," /2 , 3 /2" A=(-1 2) Locate 1,3,"2 /3 , 4 /3" A=(- 2 2) Locate 1,3,"3 /4 , 5 /4" A=(- 3 2) Locate 1,3,"5 /6 , 7 /6" A=-1 Locate 1,3," " 'A' Goto 5 Lbl 2 "Rentre la valeur du sin "? A ClrText "ANGLE(S)" A=1 Locate 1,3," /2" A=( 3 2) Locate 1,3," /3 , 2 /3" A=( 2 2) Locate 1,3," /4 , 3 /4" A=(1 2) Locate 1,3," /6 , 5 /6" A=0 Locate 1,3,"0 , , 2 " A=(-1 2) Locate 1,3,"7 /6 , 11 /6" A=(- 2 2) Locate 1,3,"5 /4 , 7 /4" A=(- 3 2) Locate 1,3,"4 /3 , 5 /3" A=-1 Locate 1,3,"3 /2" 'A' Goto 5 Lbl 3 "Rentre la valeur du tan "? A ClrText "ANGLE(S)" A=1 Locate 1,3," /4 , 5 /4" A=( 3 3) Locate 1,3," /6 , 7 /6" A=( 3) Locate 1,3," /3 , 4 /3" A=0 Locate 1,3,"0 , 2 " A=(- 3 3) Locate 1,3,"5 /6 , 11 /6" A=(- 3) Locate 1,3,"2 /3 , 5 /3" A=-1 Locate 1,3,"3 /4 , 7 /4" 'A' Lbl 5 "FIN" "VOULEZ VOUS D'AUTRE ANGLE ?" Lbl 9 Getkey=54 Goto A Getkey=64 Goto 7 Goto 9 Lbl 7
|